home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / MCC_TheBar / Install < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.8 KB  |  65 lines
  1. ; $VER: TheBar_Install 13.3 (30.6.2003)
  2.  
  3. (procedure P_SetMessages
  4.  
  5.     (if (= "italiano" @language)
  6.         (
  7.             (set #AskMCCsDirPromptMsg "Scegli la directory dove installare le classi MUI")
  8.             (set #AskMCCsDirHelpMsg   "Nella directory scelta, verranno copiate le classi MUI.")
  9.             (set #CopyingMCCsMsg      "Sto copiando le classi MUI...")
  10.         )
  11.         (
  12.             (set #AskMCCsDirPromptMsg "Select the drawer where you want to copy the MUI classes")
  13.             (set #AskMCCsDirHelpMsg   "In the drawer you supply here, there will be installed the MUI classes.")
  14.             (set #CopyingMCCsMsg      "Copying or Updating MUI classes...")
  15.         )
  16.     )
  17. )
  18.  
  19. (procedure P_AskMCCsDir
  20.     (set #MCC-dir
  21.         (askdir
  22.             (prompt #AskMCCsDirPromptMsg)
  23.             (help #AskMCCsDirHelpMsg)
  24.             (default @default-dest)
  25.         )
  26.     )
  27. )
  28.  
  29. (procedure P_CopyMCCs
  30.     (working #CopyingMCCsMsg)
  31.     (set #localMCCSDir (tackon #source-dir "MUI/"))
  32.     (foreach #localMCCsDir "#?"
  33.         (copylib
  34.             (source (tackon #localMCCsDir @each-name))
  35.             (dest @default-dest)
  36.         )
  37.     )
  38. )
  39.  
  40. (procedure P_CopyCatalogs
  41.     (set #catSourceDir (tackon #source-dir (tackon "Catalogs" @language)))
  42.     (set #catDestDir (tackon "Locale:" (tackon "Catalogs" @language)))
  43.     (if (= (and (= (exists (#catSourceDir)) 2) (= (exists (#catDestDir)) 2)) 1)
  44.         (foreach #catSourceDir "#?"
  45.             (copylib
  46.                 (source (tackon #catSourceDir @each-name))
  47.                 (dest #catDestDir)
  48.             )
  49.         )
  50.     )
  51. )
  52.  
  53. (set @default-dest "MUI:LIBS/MUI/")
  54. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))
  55.  
  56. (P_SetMessages)
  57.  
  58. (complete 0)
  59. (P_AskMCCsDir)
  60. (set @default-dest #MCC-dir)
  61. (P_CopyMCCs)
  62. (complete 90)
  63. (P_CopyCatalogs)
  64. (complete 100)
  65.